home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_97.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  736 b   |  21 lines
  1. on atmoSet wich
  2.   global atmoPos1, atmoY, swPos1, interiorPos1, nappi_sprite
  3.   if (the frame >= label("newsun_interior")) and (the frame < label("newsun_solarwind")) then
  4.     set wich to wich - 3
  5.     set mem to "inttxt" & wich
  6.     set the member of sprite 90 to mem
  7.     set the movieTime of sprite 110 to getAt(interiorPos1, wich) * 60
  8.   else
  9.     if the frame >= label("newsun_solarwind") then
  10.       set wich to wich - 2
  11.       set mem to "swtxt" & wich
  12.       set the member of sprite 90 to mem
  13.       set the movieTime of sprite 110 to getAt(swPos1, wich) * 60
  14.     else
  15.       set mem to "atmotxt" & wich
  16.       set the member of sprite 90 to mem
  17.       set the movieTime of sprite 110 to getAt(atmoPos1, wich) * 60
  18.     end if
  19.   end if
  20. end
  21.